source PAC.tcl

# VaisseauA --
#
#   value abstraction

inherit VaisseauA Abstraction
method VaisseauA constructor {control value} {
   this inherited $control 
   set this(value) $value
}
?
method VaisseauA destructor {} {
   this inherited
}



# VaisseauP --
#
#   a value presentation

inherit VaisseauP Presentation
method VaisseauP constructor {control} {
	this inherited $control
}


method VaisseauP destructor {} {
   this inherited
}


# Vaisseau --
#
#   a value controler

inherit Vaisseau Control
method Vaisseau constructor {parent value} {
   VaisseauA ${objName}_abst $objName $value
   VaisseauP ${objName}_pres $objName
   this inherited $parent ${objName}_abst ${objName}_pres
}

method Vaisseau destructor {} {
   this inherited
}

